(Fload): Use call5.

diff --git a/src/lread.c b/src/lread.c
index 57410a71d789dff401127917e845e91ac06211f7..385a73d5af65a9cad1635fbfa02607652654e56e 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -326,16 +326,7 @@ Return t if file exists.")
   /* If file name is magic, call the handler.  */
   handler = Ffind_file_name_handler (str);
   if (!NILP (handler))
-    {
-      Lisp_Object args[6];
-      args[0] = handler;
-      args[1] = Qload;
-      args[2] = str;
-      args[3] = noerror;
-      args[4] = nomessage;
-      args[5] = nosuffix;
-      return Ffuncall (6, args);
-    }
+    return call5 (handler, Qload, str, noerror, nomessage, nosuffix);
 
   /* Avoid weird lossage with null string as arg,
      since it would try to load a directory as a Lisp file */